home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Scriptable Authoring.dir / Scripts_47_Select a radio button for the band.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  632 b   |  14 lines
  1. global gBandReplaceMember, gPathDelimiter, gBandName, gPuppetList
  2.  
  3. on mouseDown
  4.   PlaySound("RadioButtonClick")
  5.   set firstSprite to the royHarperBand of gPuppetList
  6.   set secondSprite to the hanksVoodooBand of gPuppetList
  7.   set thirdSprite to the nightbloomersBand of gPuppetList
  8.   set chosenBand to SelectRadioButton(the clickOn, "Create Cast Radio Button On", "Create Cast Radio Button Off", [firstSprite, secondSprite, thirdSprite])
  9.   importFileInto(gBandReplaceMember, the pathName & "ScriptAuthor-Bands" & gPathDelimiter & string(chosenBand & ".PCT"))
  10.   set gBandName to chosenBand
  11.   DisplayCurrentBand()
  12.   PlayBandClip()
  13. end
  14.